Chip 1999 March/CHIP Turkiye Mart 1999.iso/araclar/Win98/HTML-Tool/DWESD.EXE/data.z/guided_tour.dcr/Standard_103_Internal Navigate.ls

Text File | 1998-04-02 | 1.1 KB | 47 lines

property whichSprite, startMember, rollOverMember, mouseDownMember, currentOverMember, whereToGo

on beginSprite me
  set whichSprite to the spriteNum of me + 1
  set rollOverMember to the number of the member of sprite whichSprite + 1
  set mouseDownMember to the number of the member of sprite whichSprite + 2
  set currentOverMember to rollOverMember
  set startMember to the member of sprite whichSprite
  set whichSprite to the spriteNum of me + 1
end

on mouseWithin me
  set the member of sprite whichSprite to currentOverMember
end

on mouseLeave me
  set the member of sprite whichSprite to startMember
end

on mouseDown me
  puppetSound(3, "tic")
  set currentOverMember to mouseDownMember
  set the member of sprite whichSprite to mouseDownMember
end

on mouseUp me
  goTheRightPlace()
end

on mouseUpOutSide me
  set currentOverMember to rollOverMember
end

on goTheRightPlace me
  wait(10)
  go(whereToGo)
end

on getPropertyDescriptionList
  set propertyDescriptionList to [#whereToGo: [#comment: "Where to go:", #format: #marker, #default: "#Next"]]
  return propertyDescriptionList
end

on getBehaviorDescription
  return EMPTY
end